home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / ned100.zip / CMDFILE.PAS next >
Pascal/Delphi Source File  |  1993-04-08  |  13KB  |  430 lines
  1. { FILE:  cmdfile.pas}
  2.  
  3.  
  4.  
  5. unit CmdFile;
  6.  
  7.  
  8.  
  9.  
  10. { ----------------------------------------------------------- }
  11. {                                                             }
  12. { This unit contains all the command options for the program  }
  13. { and all the status line hints for the program menu options. }
  14. {                                                             }
  15. { For the help commands, always ensure last item in a series  }
  16. { of numbers is labeled "hc????_Items" and it equals last     }
  17. { item in number series.                                      }
  18. {                                                             }
  19. { Don't put anything else in here except key command codes!   }
  20. {                                                             }
  21. { Note that in order for a command to be disabled, it MUST be }
  22. { in the range 100..255!                                      }
  23. {                                                             }
  24. {         Allowable Ranges   Reserved   Can Be Disabled       }
  25. {                                                             }
  26. {              0..99           Yes           Yes              }
  27. {            100..255          No            Yes              }
  28. {            256..999          Yes           No               }
  29. {           1000..65535        No            No               }
  30. {                                                             }
  31. { Al Andersen - 02/29/92.                                     }
  32. {                                                             }
  33. { ----------------------------------------------------------- }
  34.  
  35.  
  36. {$D-}
  37.  
  38.  
  39.  
  40. interface
  41.  
  42.  
  43.  
  44. CONST
  45.  
  46.  
  47.  
  48.   {------------------------------------- }
  49.   {                                      }
  50.   { Menu commands.  Space is provided    }
  51.   { if you want to add an "Extras" menu. }
  52.   { If you use the extra's menu option,  }
  53.   { put your commands here.              }
  54.   {                                      }
  55.   { cm??? range = 100 through 109        }
  56.   { hc??? range = 2000 through 2099      }
  57.   {                                      }
  58.   { ------------------------------------ }
  59.  
  60.  
  61.   cmAbout                =  100;
  62.  
  63.   hcMenus                = 2000;
  64.  
  65.   hcExtra_Menu           = 2001;
  66.   hcAbout                = 2002;
  67.   hcExtra_Menu_Items     = hcExtra_Menu;
  68.  
  69.  
  70.  
  71.   { ------------------------------- }
  72.   {                                 }
  73.   { FILE Menu options.              }
  74.   {                                 }
  75.   { The following commands may be   }
  76.   { found in the NEWEDIT unit:      }
  77.   {                                 }
  78.   { cmSave                          }
  79.   { cmSaveDone                      }
  80.   { cmSaveAs                        }
  81.   {                                 }
  82.   { The following commands may be   }
  83.   { found in the VIEWS unit:        }
  84.   {                                 }
  85.   { cmQuit                          }
  86.   {                                 }
  87.   { cm??? range =  110 through  119 }
  88.   { hc??? range = 2100 through 2199 }
  89.   {                                 }
  90.   { ------------------------------- }
  91.  
  92.  
  93.   cmOpen                 =  110;
  94.   cmNew                  =  111;
  95.   cmChangeDir            =  112;
  96.   cmShellToDos           =  113;
  97.  
  98.   hcFile_Menu            = 2100;
  99.   hcOpen                 = 2101;
  100.   hcNew                  = 2102;
  101.   hcSave                 = 2103;
  102.   hcSaveDone             = 2104;
  103.   hcSaveAs               = 2105;
  104.   hcChangeDir            = 2106;
  105.   hcShellToDos           = 2107;
  106.   hcExit                 = 2108;
  107.   hcFile_Menu_Items      = hcExit;
  108.  
  109.  
  110.  
  111.   { ------------------------------- }
  112.   {                                 }
  113.   { EDIT Menu options.              }
  114.   {                                 }
  115.   { The following commands may be   }
  116.   { found in the VIEWS unit:        }
  117.   {                                 }
  118.   { cmUndo                          }
  119.   { cmCopy                          }
  120.   { cmCut                           }
  121.   { cmPaste                         }
  122.   { cmClear                         }
  123.   {                                 }
  124.   { cm??? range =  120 through  129 }
  125.   { hc??? range = 2200 through 2299 }
  126.   {                                 }
  127.   { ------------------------------- }
  128.  
  129.  
  130.   cmClipboard            =  120;
  131.  
  132.   hcEdit_Menu            = 2200;
  133.   hcUndo                 = 2201;
  134.   hcCopy                 = 2202;
  135.   hcCut                  = 2203;
  136.   hcPaste                = 2204;
  137.   hcClipboard            = 2205;
  138.   hcClear                = 2206;
  139.   hcEdit_Menu_Items      = hcClear;
  140.  
  141.  
  142.  
  143.   { ------------------------------- }
  144.   {                                 }
  145.   { SEARCH Menu options.            }
  146.   {                                 }
  147.   { The following commands may be   }
  148.   { found in the NEWEDIT unit:      }
  149.   {                                 }
  150.   { cmFind                          }
  151.   { cmReplace                       }
  152.   { cmSearchAgain                   }
  153.   {                                 }
  154.   { cm??? range =  130 through  139 }
  155.   { hc??? range = 2300 through 2399 }
  156.   {                                 }
  157.   { ------------------------------- }
  158.  
  159.  
  160.   hcSearch_Menu          = 2300;
  161.   hcFind                 = 2301;
  162.   hcReplace              = 2302;
  163.   hcAgain                = 2303;
  164.   hcSearch_Menu_Items    = hcAgain;
  165.  
  166.  
  167.  
  168.   { ------------------------------- }
  169.   {                                 }
  170.   { WINDOWS Menu options.           }
  171.   {                                 }
  172.   { The following commands may be   }
  173.   { found in the VIEWS unit:        }
  174.   {                                 }
  175.   { cmResize                        }
  176.   { cmZoom                          }
  177.   { cmNext                          }
  178.   { cmPrev                          }
  179.   { cmClose                         }
  180.   { cmTile                          }
  181.   { cmCascade                       }
  182.   {                                 }
  183.   { cm??? range =  140 through  149 }
  184.   { hc??? range = 2400 through 2499 }
  185.   {                                 }
  186.   { ------------------------------- }
  187.  
  188.  
  189.   hcWindows_Menu         = 2400;
  190.   hcResize               = 2401;
  191.   hcZoom                 = 2402;
  192.   hcPrev                 = 2403;
  193.   hcNext                 = 2404;
  194.   hcClose                = 2405;
  195.   hcTile                 = 2406;
  196.   hcCascade              = 2407;
  197.   hcWindows_Menu_Items   = hcCascade;
  198.  
  199.  
  200.  
  201.   { ------------------------------- }
  202.   {                                 }
  203.   { DESKTOP Menu options.           }
  204.   {                                 }
  205.   { cm??? range =  150 through  159 }
  206.   { hc??? range = 2500 through 2599 }
  207.   {                                 }
  208.   { ------------------------------- }
  209.  
  210.  
  211.   cmLoadDesktop          =  150;
  212.   cmSaveDesktop          =  151;
  213.   cmToggleVideo          =  152;
  214.  
  215.   hcDesktop_Menu         = 2500;
  216.   hcLoadDesktop          = 2501;
  217.   hcSaveDesktop          = 2502;
  218.   hcToggleVideo          = 2503;
  219.   hcDesktop_Menu_Items   = hcToggleVideo;
  220.  
  221.  
  222.  
  223.   { -------------------------------------------------------------------- }
  224.   {                                                                      }
  225.   { Miscellaneous commands not directly related to menu options go here. }
  226.   {                                                                      }
  227.   { -------------------------------------------------------------------- }
  228.  
  229.  
  230.   hcMisc_Commands        = 2600;
  231.   hckbShift              = 2601;
  232.   hckbCtrl               = 2602;
  233.   hckbAlt                = 2603;
  234.   hcMisc_Items           = hckbAlt;
  235.  
  236.  
  237.  
  238.   { ------------------------------- }
  239.   {                                 }
  240.   { Editor help commands.           }
  241.   {                                 }
  242.   { Editor commands that are not    }
  243.   { available in a menu go here.    }
  244.   {                                 }
  245.   { hc??? range = 2700 through 2799 }
  246.   {                                 }
  247.   { ------------------------------- }
  248.  
  249.  
  250.   { Editor Sub Menu Commands }
  251.  
  252.   hcEditor_Commands      = 2700;
  253.   hcCursor               = 2701;
  254.   hcDeleting             = 2702;
  255.   hcFormatting           = 2703;
  256.   hcMarking              = 2704;
  257.   hcMoving               = 2705;
  258.   hcSaving               = 2706;
  259.   hcSelecting            = 2707;
  260.   hcTabbing              = 2708;
  261.  
  262.   { Editor help commands }
  263.  
  264.   hcBackSpace            = 2709;
  265.   hcCenterText           = 2710;
  266.   hcCharLeft             = 2711;
  267.   hcCharRight            = 2712;
  268.   hcDelChar              = 2713;
  269.   hcDelEnd               = 2714;
  270.   hcDelLine              = 2715;
  271.   hcDelStart             = 2716;
  272.   hcDelWord              = 2717;
  273.   hcEndPage              = 2718;
  274.   hcHideSelect           = 2719;
  275.   hcHomePage             = 2720;
  276.   hcIndentMode           = 2721;
  277.  
  278.   hcInsertLine           = 2722;
  279.   hcInsMode              = 2723;
  280.   hcJumpLine             = 2724;
  281.   hcLineDown             = 2725;
  282.   hcLineEnd              = 2726;
  283.   hcLineStart            = 2727;
  284.   hcLineUp               = 2728;
  285.   hcNewLine              = 2729;
  286.   hcPageDown             = 2730;
  287.   hcPageUp               = 2731;
  288.   hcReformDoc            = 2732;
  289.   hcReformPara           = 2733;
  290.   hcRightMargin          = 2734;
  291.   hcScrollDown           = 2735;
  292.   hcScrollUp             = 2736;
  293.   hcSearchAgain          = 2737;
  294.   hcSelectWord           = 2738;
  295.   hcSetTabs              = 2739;
  296.   hcStartSelect          = 2740;
  297.   hcTabKey               = 2741;
  298.   hcTextEnd              = 2742;
  299.   hcTextStart            = 2743;
  300.   hcWordLeft             = 2744;
  301.   hcWordRight            = 2745;
  302.   hcWordWrap             = 2746;
  303.  
  304.   hcJMarker_Menu         = 2750;
  305.   hcJumpMark1            = 2751;
  306.   hcJumpMark2            = 2752;
  307.   hcJumpMark3            = 2753;
  308.   hcJumpMark4            = 2754;
  309.   hcJumpMark5            = 2755;
  310.   hcJumpMark6            = 2756;
  311.   hcJumpMark7            = 2757;
  312.   hcJumpMark8            = 2758;
  313.   hcJumpMark9            = 2759;
  314.   hcJumpMark0            = 2760;
  315.   hcJMarker_Menu_Items   = 2761;
  316.  
  317.   hcSMarker_Menu         = 2770;
  318.   hcSetMark1             = 2771;
  319.   hcSetMark2             = 2772;
  320.   hcSetMark3             = 2773;
  321.   hcSetMark4             = 2774;
  322.   hcSetMark5             = 2775;
  323.   hcSetMark6             = 2776;
  324.   hcSetMark7             = 2777;
  325.   hcSetMark8             = 2778;
  326.   hcSetMark9             = 2779;
  327.   hcSetMark0             = 2780;
  328.   hcSMarker_Menu_Items   = 2781;
  329.  
  330.   hcEditor_Items         = hcSMarker_Menu_Items;
  331.  
  332.  
  333.  
  334.   { ----------------------------- }
  335.   {                               }
  336.   { Dialog box commands go here.  }
  337.   {                               }
  338.   { hc??? range 2800 through 2899 }
  339.   {                               }
  340.   { ----------------------------- }
  341.  
  342.  
  343.   hcDialogs              = 2800;
  344.  
  345.   { Generic buttons }
  346.  
  347.   hcDCancel              = 2801;
  348.   hcDNo                  = 2802;
  349.   hcDOk                  = 2803;
  350.   hcDYes                 = 2804;
  351.  
  352.   { About dialog }
  353.  
  354.   hcDAbout               = 2805;
  355.  
  356.   { Directory Dialog}
  357.  
  358.   hcDDirName             = 2806;
  359.   hcDDirTree             = 2807;
  360.   hcDChDir               = 2808;
  361.   hcDRevert              = 2809;
  362.  
  363.   { File Dialog }
  364.  
  365.   hcDName                = 2810;
  366.   hcDFiles               = 2811;
  367.  
  368.   { Find Dialog }
  369.  
  370.   hcDFindText            = 2812;
  371.   hcDCaseWhole           = 2813;
  372.  
  373.   { Jump Line Dialog }
  374.  
  375.   hcDLineNumber          = 2814;
  376.  
  377.   { Reformat Dialog }
  378.  
  379.   hcDReformDoc           = 2815;
  380.  
  381.   { Replace Dialog }
  382.  
  383.   hcDReplaceTExt         = 2816;
  384.   hcDPromptReplace       = 2817;
  385.  
  386.   { Right Margin Dialog }
  387.  
  388.   hcDRightMargin         = 2818;
  389.  
  390.   { Tab Stop Dialog }
  391.  
  392.   hcDTabStops            = 2819;
  393.  
  394.  
  395.  
  396.   { ----------------------------- }
  397.   {                               }
  398.   { Glossary commands go here.    }
  399.   {                               }
  400.   { hc??? range 2900 through 2999 }
  401.   {                               }
  402.   {                               }
  403.   { ----------------------------- }
  404.  
  405.  
  406.   Glossary               = 2900;
  407.   GCloseIcon             = 2901;
  408.   GDesktop               = 2902;
  409.   GDialogBox             = 2903;
  410.   GHistoryIcon           = 2904;
  411.   GInputLine             = 2905;
  412.   GMemIndicator          = 2906;
  413.   GMenuBar               = 2907;
  414.   GPulldownMenu          = 2908;
  415.   GResizeCorner          = 2909;
  416.   GSelectedText          = 2910;
  417.   GStatusBar             = 2911;
  418.   GTitleBar              = 2912;
  419.   GWindowBorder          = 2913;
  420.   GZoomIcon              = 2914;
  421.   hcGlossary_Items       = GZoomIcon;
  422.  
  423.  
  424.  
  425. implementation
  426.  
  427.  
  428.  
  429. end. { CmdFile }
  430.